home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / adjust_rgb.ifx < prev    next >
Text File  |  2004-08-03  |  511b  |  26 lines
  1. /*
  2.  *    Adjust_RGB.ifx
  3.  *    Script to alter the red, green, and/or blue values
  4.  *    of pixels in an image: The PreScript sets up the
  5.  *    ImpAlterRGBParameters clip variable with the
  6.  *    RGB deltas.
  7.  *
  8.  *    by Steve Tibbett
  9.  */
  10.  
  11. Options Results
  12.  
  13. SeqNum=Word(Arg(1),4);
  14.  
  15. Settings=GetClip("ImpAdjustRGBParameters"SeqNum);
  16. if (Settings="") then do
  17.     RequestNotify "ImpAdjustRGBParameters invalid in ImpAdjustRGB.ifx"
  18.     return 20
  19.     End
  20.  
  21. Parse Var Settings R G B
  22.  
  23. If (R~=0) then Red R
  24. If (G~=0) then Green G
  25. If (B~=0) then Blue B
  26.